home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PASCAL / 1463.ZIP / DRAW-2D.ARC / NORMCUR.PAS < prev    next >
Pascal/Delphi Source File  |  1986-10-03  |  942b  |  42 lines
  1. PROCEDURE NORMCUR;
  2.    BEGIN
  3.    (* SCREEN MASK *)
  4.      CUR[0] := $3FFF;
  5.      CUR[1] := $1FFF;
  6.      CUR[2] := $0FFF;
  7.      CUR[3] := $07FF;
  8.      CUR[4] := $03FF;
  9.      CUR[5] := $01FF;
  10.      CUR[6] := $00FF;
  11.      CUR[7] := $007F;
  12.      CUR[8] := $003F;
  13.      CUR[9] := $001F;
  14.      CUR[10] := $01FF;
  15.      CUR[11] := $10FF;
  16.      CUR[12] := $30FF;
  17.      CUR[13] := $F87F;
  18.      CUR[14] := $F87F;
  19.      CUR[15] := $FC3F;
  20.    (* CURSOR MASK *)
  21.      CUR[16] := $0000;
  22.      CUR[17] := $4000;
  23.      CUR[18] := $6000;
  24.      CUR[19] := $7000;
  25.      CUR[20] := $7800;
  26.      CUR[21] := $7C00;
  27.      CUR[22] := $7E00;
  28.      CUR[23] := $7F00;
  29.      CUR[24] := $7F80;
  30.      CUR[25] := $78C0;
  31.      CUR[26] := $7C00;
  32.      CUR[27] := $4600;
  33.      CUR[28] := $0600;
  34.      CUR[29] := $0300;
  35.      CUR[30] := $0300;
  36.      CUR[31] := $0180;
  37.   (* DEFINE HOT SPOT *)
  38.      M1 := 9;
  39.      M2 := -1;
  40.      M3 := -1;
  41.      MOUSE(M1,M2,M3,CUR[0]);
  42.    END;